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MODULE FILUTL ( Lane GUAGE, ( :. 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


it te SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gd be 
ONL ACCORDANCE THE TE THE 


® 
® 
® 
fe 
® 
i YI RMS OF SUCH E * 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY. OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
® 
if THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
® 
® 
mr 
® 
® 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: ABSTRACT: 
i This module contains routines used to access random files by the 
34 ACP itself. 
Be ENVIRONMENT: 
04 i STARLET operating system, including privileged system services 
04 ! and internal exec routines. 
4 44 $ 
5 45 len 
6 04 ! 
47 04 ‘ 
$8 Bes AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-May-1978 19:13 | 
30 ost i MODIFIED BY: | 
52 036 i v03-015 CDS0010 Christian D. Saether 14-Aug-1984 
34 27 : Modify handling of extension fcbs. | 
5 beg i v03-014 £05000? Ghristion D0. Saether 6-Aug-1984 | 
56 B28 : correctly deal with serializing on a lock we already had. 
57 5 ; Add handler for the open_file routine to correctly 
| 


] 
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$ p38 clean up after errors in the open_file routine. 

60 060 v03-013 LMP0275 L. Mark Pilant, 25-Jul-1984 15:50 
2 be Don't try to delete an uninitialized ACL. 

6 We v03-012 CDS0008 Christian D. Saether 19-Apr-1984 

64 0064 Use REFCNT instead of ACNT. 

o? Boee Modify access arbitration. 

67 itd v03=-011 ACG0415 Andrew C. Goldstein, 5-Apr-1984 21:33 
+ Bpee Interface change to ACL_DELETEACL 

0 0970 v03-010 ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:47 
4! Bae, Make APPLY_RVN and DEFAULT_RVN macros 

7 $078 v03-009 CDS0007 Christian D. Saether 23-Feb-1984 

74 0074 Eliminate use of FLUSH_LOCK_BASIS. 

ie por? Replace with TOSS_CACHE_DATA. 

77 007 v03-008 CDS0006 Christian D. Saether 18-Jan-1984 

re th Modify interface to APPLY_RVN. 
80 0080 v03-007 CDS0005 Christian D. Saether 30-Dec-1983 

a se Use L_NORM Linkage and BIND_COMMON macro. 
8 008 v03-006 CDS0004 Christian D. Saether 7-Dec-1983 

eC it Remove call to REMOVE_FCB and do the REMQUE inline. 

v03-005 CDS0003 Christian D. Saether 14-Sep-1983 


Modify SERIAL_FILE interface. Use RELEASE_SERIAL_LOCK 
routine to dequeue serialization lock. 


v03-004 CDS0002 Christian D. Saether 19-Jun-1983 
Until further work is done with buffer caching 
flush all buffers from the cache when closing internal file. 
This fixes a bug where getting location information for 
VBN placement leaves a header in the cache and the file 
serialization lock is released. 


v03-003 CDS0001 Christian D. Saether ie egy 
Add xqp synchronization of file processing (SERIAL_FILE) 
and xqp access arbitration (ACCESS_LOCK) calls. 


vO3-02 LMP0059 L. Mark Pilant 7-Jan-1983 12:05 | 
| 
| 
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96 

97 

98 

99 0 

100 100 

101 19) 

196 1 § ai veys create and Link in an FCB when accessing a file. This 
+ + eliminates a lot of special case handling. 

105 105 v03-001 LMP0037 L. Mark Pilant, 28-Jun-1982 15:10 
106 196 Remove the addressing mode module switch. 

108 198 v02-006 ACG0259 Andrew C. Goldstein 27-Jan-1982 20:38 
109 109 Change to longword external addressing 

111 111 v02-004 LMP0003 4. Mark Pilant, 88-Dec-1981 11:31 
116 16 Make sure the primary window wes actually created. It may 
BF BF not have been due to the byte Limit quota being exceeded. 


18 We 4 | 

3 113 113 1! 

3 118 118 1! 

ey 119 1! 

: 120 1 1! 

; ! 1 : 1 ! 

ie 5 1 g 1! 

: 124 12446 1! 
2 ee 

3 1 $ 1 $ 1! 

> 128 0128 1! 

: 129 0129 1 !ee 

s 150 0130 1 

3; «6151 0131 1 

: 136 01 § 1 LIBRARY 
; 13 01 1 REQUIRE 
; 134 1124 «1 

. 35 1125 1 

; 136 1126 1 FORWARD 
: 137 1127 1 

: 138 1128 1 

3; 139 BY 9 1 

; 140 1130 1 


B0104 accoit2 Andrey (. Eel deretn, 15-Jan-1980 22:55 
Limit data read to file's 


B0103 ACcG0092 Andrew C. Goldstein, 6-Dec-1979 19:23 
Set proper RVN on file being opened 
B0102 ACG0008 Andrew C. Goldstein, teepeg= sore 22:57 
Add map only access for placement use, support multi-header files 
B0101 ACG0003 And Coldstets. 10-Nov-1978 19:01 
Add multi-volume support, restr ct to s ngle header files 


B0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:00 
Previous revision history moved to F11B.SRCJF11B.REV 


eRe patTORARy L1G Lee's 
*SRCS:FCPDEF .B32'; 


a ey 

OPEN_FILE NORM, ! gpen a file 

OPEN, FILE _HANDLER :"L_NORM, rer handling for open_file 
READ- DAT : L NORM, ead data from file 


CLOSE_ FILE : LINORM NOVALUE: ' "akean a file 
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GLOBAL ROUTINE OPEN_FILE (FID, WRITE) : 


44 
' 


FUNCTIONAL DESCRIPTION: 


This routine opens the file of the given file ID. It constructs an 
FCB and window and returns the address of the latter. 


i CALLING SEQUENCE: 
OPEN_FILE (ARG1, ARG2) 


! INPUT PARAMETERS: 
ARG1: address of file ID of file to open 
ARG2: = 0 to open read onl 
1 to open read/write 
2 to bypass interlocks (just map the file) 


i IMPLICIT INPUTS: 
NONE 


PEPPERDINE 


ono 


! OUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
PRIMARY_FCB: address of FCB created or found 
CURRENT_WINDOW: address of window created 


i ROUTINE VALUE: 
address of window created 


i SIDE EFFECTS: 
FCB and window created 


FID : REF BBLOCK; file ID arg 


09009 09 C9 C808 NI SI NINN NINN NN SOOO 


g indicating FCB creation 
e control block address 
dow address 

e header address 


FCB_CREATED, 
FCB : REF BBLOCK, 
WINDOW : REF BBLOCK, 
HEADER : REF BBLOCK; 


BIND_ COMMON; 


EXTERNAL ROUTINE 
REBLD_PRIM_FCB 


meme eee 
Se ee ee 
ote 
-3 -o@ 


L_NORM NOVALUE, ! rebuild primary fcb from header 
BUILD-EXT_FCBS : L-NORM NOVALUE, ! build extension fcbs 
ARBITRATE-ACCESS : C_JSB_2ARGS, ! arbitrate file access 
CONV_ACCLOCK : L_RORM, ' convert file access lock 
SERIAL_FILE : LINORM, ' file processing interlock 
SW1TCH_ VOLUME L_NORM, ! switch to correct volume 


ee ee ee ee ee ed ed ed ed dd td ed od od ed dd 
ee me a a ce ee em ee Dc ee ee ee Dc ce ee ec ee ed ed ed aed od ed od dd dD 


©9090000 09 0909 09 Si SIN NINN NSN NOAA AAA AAA AM ITU BB BBB BEE PWN A II 
NOUS WN 9 ODNAUE WN ( O ODNOAUE WN (OOD NAUS WN SO OONAUES WO OONOUS Wh 


Be Se Se Se Se Se Se Se Se Se Ss Ge Ge FF Fe Se Fe Se Ge Se Ge Ge Ge Ge Fe Ge Ge Se Se Se Ge Fe Gs Se Ge Ge Se Se Se Se Se Se Se Se Se Sse Se Se esese Fe Se Se Ssetsese 
ee ee a ee ee ee ee ee ee ee a ee ee ee ee ee a a ed 


9 
b-Sep- 1984 99:93:37 —-DISKSUMGMASTERSEFTIX.oRCIFILUTL.B32:1°%° (23 


nn 
_ 
> 


1 
1 
| 


; 199 1188 SEARCH FCB : LNORM, search for FCB of file ; 
3 so 1189 READ_HEADER : LINORM, read file header . 
; 291 1190 CREATE. FCB : CINORM: create a file control block | 
; soe 113) CREATE_WINDOW =: L_NORM; create a file window ‘ 
3 oe 1138 ENABLE OPEN_FILE_HANDLER; ‘ 
: 06 1195 ! The current uses of this routine (as of 3b) are ; 
; 20 1139 ' 1) BADSCN calls it to get r/w access to the bad\og file ; 
; 208 119 ! 2) GET_LOC calls it with bypass to get mapping info for related file placement ; 
; 209 1198 ' 3) CREATE calls it with bypass to get previous version attributes for : 
; 19 133% } propagation ; 
: sig 1201 ! There is a small possibility of deadlock on the placement use because of ; 
s 2 1 8g ! the file serialization lock. If two processes simultaneously do placed : 
> 214 120 ' allocation on two separate files, and each specifies the other as the : 
; 216 ; Be : file to be placed near, one could deadlock. : 
: 217 1206 
; 2 1207 ! Initialize impure cells that drive the cleanup in the handler. : 
3 2 1208 : : 
; 220 1209 : 
3; 2el 1210 STSFLGS CSTS_HAD_LOCK] = 0; : 
: 222 1211 2 STSFLGS CSTS-KEEP_LOCK) = 6; : 
3; ge igi¢ PRIMARY FCB = 0; : 
> 226 121 PRIM_LCRINDX = 0; ; 
$ gee 1214 3 
3 4c 1215 ! Switch context to the volume of the specified RVN. : 
; ssi 1216 2! : 
; 228 1217 § : 
; en 1218 APPLY_RVN (FIDCFIDSW_RVN), .CURRENT_RVN); : 
; $30 1330 2 SWITCR_VOLUME (.FIDCFIDSW_RVNJ); : 
3 $38 1221 ! Interlock process ing on this file. ; 
; 2s \$s¢ ! There is an assumption made in the vay that this lock is handled , 
3 234 122 ! that no other serial_file calls will be made before a close_file : 
s 229 1224 ! is done on this file. That is because the sts_had_lock rag will ; 
; 236 1225 ' be set by serial_file and we are gotng to use that flag to determine : 
, gor 1226 ! whether to release this lock in close_file. : 
: $36 1227 ! : 
: 239 1228 : 
3 sc i $3 PRIM_LCKINDX = SERIAL_FILE (.FID); ; 
: ae ! rf IF .STSFLGS CSTS_HAD_LOCK) : 
3 see : 33 STSFLGS CSTS_KEEP_LOCK) = 1; ‘ 
: Ste 1536 ! Search the FCB List for the given file ID. If found, arbitrate access ; 
: 247 1 $$ ! interlocks. Note that if we create an FCB, we do not bother with access : 
: re ' i counts, etc., since it will disappear at the end of this call. ’ 
; 250 1 35 . 
tt 40 ¢ FCB = SEARCH FCB (.FID); | : 
; 2§ 1 $s HEADER = READ_HEADER (.FID, .FCB); | 3 
5 54 124 FCB_CREATED = 0; : 
: 55 1244 IF .FCB EQL 0 : 
| 


m9 
1erSep-1986 12:80:27 DISKSUMSMASTERSCH 


iT 


BUILD_EXT_FCBS (. HEADER) 

Be y oFce CFCBSV_STALEJ 
BEGIN 
REBLD_PRIM_FCB (.FCB, HEADER); 
BUILD_EXT_FCBS (. HEADER); 
END; 

RETURN .WINDOW; 

END; ! end of routine OPEN_FILE 
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; 2$ 1245 

; 1 ‘3 IN 

3 8 124 FCB_CREATED = 1; 

: 9 1248 FCB = KERNEL_CALL (CREATE_FCB, .HEADER); 

; 260 1249 END; 

; 261 1250 

: ? : 2] PRIMARY_FCB = .FCB; 

: 264 1 2g IF .WRITE NEQ 2 

; 265 1254 THEN 

; 1255 erein 

3; 2 1 28 LOCAL 

: rt: \S2t CURR_LKMODE ; 

; 70 39 CURR_LKMODE = .FCB CFCBSB_ACCLKMODE); 

; 72 1261 IF NOT ARBITRATE ACCESS (IF .WRITE THEN FIBSM_WRITE ELSE 0, .FCB) 
: st? ’ $6 THEN ERR_EXIT (SS$_ACCONFLICT); 

: 275 1264 CONV_ACCLOCK (.CURR_LKMODE, .FCB); 

3 317 : 3? 2 END; 

: 278 1267 : By setting this cleanup flag, further error recovery is done in 
3 280 ; : the error_cleanup routine, not by the open_file_handler. 

> 281 1270 2_ 

: see ! 1 CLEANUP_FLAGSCCLF_CLOSEFILE] = 1; 

: cae ! 5 CURRENT_WINDOW = WINDOW = CREATE_WINDOW (0, 0, .HEADER, 0, .FCB); 
: 286 ; 3 IF .CURRENT_WINDOW EQL 0 THEN ERR_EXIT (SS$_EXBYTLM); 

; 288 1277 2! If the file is multi-header, read the extension headers and create 
: $50 : 3 § extension FCB's as necessary. Finally read back the primary header. 
; 2 1280 2 

. 2 1281 IF .FCB_CREATED 

, « 1 ¢ THEN 

: 1 

: 1284 

3 1285 

: 1286 

3 1287 

3 1288 

3 1289 

3 1290 

3 ' 1 

; 1 : 

: 1294 

3 ' 5 

: 1 $ 1 
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4 LUTL 18. -S$ep-1984 VAX-11 Bliss-32 V4.0-742 8 
-000 14-Sep- aes 7 99: $5; 33 DISKSVMSMASTER:CF11X.SRCIJFILUTL.B32; ‘s a 8 VO4 
05 0 £8 0009F BLBS = -RO, _7$ : | 
0800 ap BF A CHMU Re ba8 1262 | 
4 OOOA RET : 
DD 000A? 7$ PUSHL FCB > 1264 | 
DD 000A9 PUSHL CURR_LKMODE : | 
00006 CF BB ap CALL he, FONy ACCLOCK 3 
03 AA 8 0 BO 8$ BISB2 # (BASE) : 1271 
2 DD 000B4 PUSHL FCB + 1273 | 
; D4 O86 CLRL. = = (SP) : 
3 bp OB PUSHL HEADER : 
: C OOOBA CLRQ. = =( SP) : 
00006 Q FB 00B¢ CALLS #5, CREATE_WINDOW : 
53 0 DO 000C7 MOVL RO, WINDOW : 
OC AA 53 pO 000C4 MOVL WINDOW, 12(BASE) : 
05 12 000C8 BNEQ + 1275 
2A14 8F BF OOOCA CHMU #10772 : 
04 OOOCE RET : 
0B 54 eg OOOCF 9$: BLBS ise CREATED 10$ + 1281 
OE 23 =A2 €E9 00002 BLBC 3 (FC 11$ + 1285 
24 BB 00006 PUSHR "Ags + 1289 
00006 CF 02 FB 00008 CALLS fa “REBLD. PRIM_FCB : 
55 DD 000DD 108: PUSHL HEA + 1291 
00006 CF 01 FB O00DF CALLS #1, BUILD EXT_FCBS : 
50 53 DO OO0E4 118: MOVL WINDOW, RO 3 1295 
04 OOOE7 ET : 1297 
0000 OO0E8 12$: «WORD Save nothing : 1177 
7E 04 OOOEA CLRL = = (SP) ; 
5E DD OOOEC PUSHL SP ; 
7E 04 AC 7D OOOEE MOVQ 4(AP), =(SP) : 
0000v CF 03 FB 000F2 CALLS #3, OPEN. FILE_HANDLER : 
04 000F7 RET : 
| 


Be Oe Be Be Oe Se Be Se Be Se Se Se Se Be Se Se Se Se Se Se Se Se Ge Ge SH Se SH Se Se Se SH Ss Se Se Se Se Se SH Se Se Se Se Se Se Se Se Se Se Se Sear se se Se Se seve 


HREM C2387 MEAG 


X-11 Bli 0-742 Page 
14-Sep-1984 SKSVMSMA 1X.SRCIFILUTL.832;1 (3 


9 g : ROUTINE OPEN_FILE_HANDLER ‘SIGNAL, MECHANISM) : L_NORM = 
1 0O 1 !++ 
18 jae 
13 8 : FUNCTIONAL DESCRIPTION: 
16 06 1! Clean up from aborted open_file. Specifically, get rid of 
17 05 1! the fcb and serialization Tock if we did not previously 
18 06 1! hold the serialization lock. 
19 07 1! 
20 08 1 !-- 
$! 09 1 
¢ 1 BEGIN 
2 1 
24 1 MAP 
25 1 SIGNAL : REF BBLOCK; 
26 14 2 
$f : BIND_COMMON; 
29 1 EXTERNAL ROUTINE 
30 1 NUKE_HEAD_ FCB : L_NORM NOVALUE, ! cleanup and deallocate prim fcb 
31 1 RELEASE _SERIAL_LOCK™: L_NORM NOVALUE, 
3 2 SET_DIRINDX : L_JSB_1ARG; 
34 IF .SIGNAL CCHFSL_SIG_NAME) NEQ SS$_CMODUSER 
35 OR .CLEANUP_FCAGS CCLF_CLOSEF ILE) 
36 OR .PRIM_LCRINDX E 


Ba -STSFCGS STS REP LOCK) 
RETURN SS$_RESIGNAL; 
ul cPRIRARY FCB NEQ 0 
Yl praia dion CFCBSW_REFCNT] EQL 0 
IF NOT SET_DIRINDX (.PRIMARY_FCB) 
NUKE _HEAD_FCB (.PRIMARY_FCB); 
PRIMARY_FCB = 0; 
IF .PRIM_LCKINDX NEQ 0 
RELEASE _SERIAL_LOCK (.PRIM_LCKINDX); 
PRIM_LCKINDX = 0; 
SS$_RESIGNAL 
END; ! of routine OPEN_FI!.E_HANDLER 
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| 
GLOBAL ROUTINE READ_DATA (WINDOW, VBN, COUNT) : L_NORM = 
| 


: 361 1 ‘8 1 

; 36 1349 1 

s 36 1 9 1 44 

; 364 1 1! 

3 9? : § } FUNCTIONAL DESCRIPTION: 

3 67 1354 1! This routine reads the specified data block(s) from the file indicated 

; 368 tr) eB. by the given window address. Note that the actual number of blocks | 
; 369 1 § & read may be less than the number desired due to mapping fragmentation 
: 70 1 1! or cache Limitations. 
: 71 1358 1! 
; ie 1359 1! 
: 37 1360 1 ! CALLING SEQUENCE: 
: RR : o : READ_DATA (ARG1, ARG2, ARG3) 

; 376 1 86 1 ! INPUT PARAMETERS: 

: 77 1364 1! ARG1: windew address 

: 78 1365 1! ARG2: starting VBN to read 

; 79 1366 1! ARGS: count of blocks to read 

; 380 1367 1! 

> 381 1368 1 ! IMPLICIT INPUTS: 

; 3 139) 1! NONE 

mm 1370 1! 

: 384 1371 1 =! OUTPUT PARAMETERS: 

; 385 1 1! NONE 

; 386 1373 1! 

; 87 1374 1 =! IMPLICIT OUTPUTS: 

: 388 1375 1! NONE 

; 389 1376 1! 

; 390 1377 1 =! ROUTINE VALUE: 

; 391 1378 1! address of buffer read 

: 392 1379 1! | 
; 393 1380 1 ! SIDE EFFECTS: 

; 394 1381 1! block read, window may be turned 

s 395 1356 1! 

; 396 1383 1 !-- 

; 397 1384 1 

; 398 tH BEGIN 

; 399 1 +H] 

; 400 138 MAP 

; 401 1388 WINDOW : REF BBLOCK; ! window argument 

3; 402 1382 

; 403 1390 LOCAL 

; 404 139) FCB : REF BBLOCK, ' address of file's FCB 
; 405 1 4 LBN, ' LBN of starting virtual block 
: 606 139 UNMAPPED, ! number of desired blocks not mapped | 
: reid : Re BUFFER : REF BBLOCK; ' address of block read | 
; 409 1 ae BASE_REGISTER; 
: 4610 139 

3; «6411 1398 EXTERNAL ROUTINE 
: oie 1399 MAP_VBN : L_NORM, ! map virtual to logical 

3; 41 1400 READ_BLOCK : LINORM; ! read a disk block 

3 416 131 

3 615 14 ¢ : 

; 416 140 ! Map the VBN to LBN using the supplied window. If the map fails, return a 

3; 4617 1404 ' zero buffer address. 


: 418 1405 ' 

3 419 1406 

; 420 140 FCB = .WINDOWCWCBS$L_FCB); 

> 421 1408 2 IF .VBN GTRU .FCBLFCBSL_EFBLK) 

: 4 é 1409 THEN RETURN 0; 

s 624 1411 LBN = MAP_VBN (.VBN, .WINDOW, .COUNT, UNMAPPED); 

3 2 2 \elg IF .LBN EGL <1 THEN RETURN 0; 

: 427 1414 BUFFER = READ BLOCK (.LBN, .COUNT = .UNMAPPED, DATA_TYPE); 
3 428 1415 RETURN .BUFFER; 

: 429 1416 

; 450 1417 1 END; ! end of routine READ_DATA 


.EXTRN MAP_VBN, READ_BLOCK 


0000 00000 .ENTRY READ_DATA, Save nothing 
SE 04 C2 00002 SUBL2 . 
51 AC DO 90005 MOVL WINDOW, R1 
50 18 Al 00 00009 MOVL  24(R1). FCB 
3c. A AC D1 0000D CMPL =~ VBN, 60(FCB) 
8 1A b0012 BGTRU 1$ 
E DD 00014 PUSHL SP 
0c AC DD 00016 PUSHL COUNT 
51 DD 00019 PUSHL 1 
08 AC DD 0001B PUSHL  VBN 
00006 CF 04 FB OO01E CALLS #4, MAP_VBN 
FFFFFFFF © 8F 50 01 0002 CMPL  LBN, #-T 
10 13 0002A BEQL '1$ 
04 Dp 0002¢ PUSHL #4 
7E oc AC 04 AE C OO0¢E SUBL3. UNMAPPED, COUNT, -(SP) 
50 DD 00034 PUSHL LBN 
00006 CF 03 FB 00036 CALLS #3, READ_BLOCK 
04 00038 RET 
50 D4 9005¢ 1$: CLRL = RO 
04 0003E RET 


; Routine Size: 63 bytes, Routine Base: $CODES + 0148 
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H : ¢ 1418 ! GLOBAL ROUTINE CLOSE_FILE (WINDOW) : L NORM NOVALUE = 

; 434 14 1 !44 

; 435 1421 1! 
H 2 $ 7 § : FUNCTIONAL DESCRIPTION: 
; 438 14246 1! This routine closes the file indicated by the supplied window 
> 439 1425 1! by releasing the window and FCB. 
> 440 14 § 1! 
3; 441 14 1! 

; 44 1428 1 ! CALLING SEQUENCE: 

; «44 1429 1! CLOSE_FILE (ARG1) 
; 444 1430 1 | | 
; 445 1431 1 =! INPUT PARAMETERS: 

> 446 14 : 1 i ARG1: address of window 
> 447 14 1! 

; 448 1434 1 ! IMPLICIT INPUTS: 

> 449 1435 1! NONE 

; 450 1436 1! 

> 451 1437 1 ! OUTPUT PARAMETERS: 
3 rt 1438 1! NONE 
; 45 1439 1! 
3; «454 1440 1 =! IMPLICIT OUTPUTS: 

; 455 1441 1 PRIMARY_FCB: 0 

; 456 100g 1! CURRENT_WINDOW: 0 

3; 457 1443 1! | 
; 458 1444 1 ! ROUTINE VALUE: 

; 459 1445 1! NONE 
: 460 1446 1! 
; 461 1447 1 ! SIDE EFFECTS: 
: 46 1448 1 | FCB and window deallocated 
; 46 1449 1! 

; 464 1450 1 !-- 

: 465 1451 1 

: 466 1036 2 BEGIN 

3: 467 1453 2 

: 468 1454 § MAP 

3; 469 1455 WINDOW : REF BBLOCK; ! window argument 

: 470 1456 
3; «471 1457 LOCAL 
3; 47 1458 FCB : REF BBLOCK, ' FCB of file 
s 67 1459 WINDOW SEGMENT : REF BBLOCK, ! Address of current window segment 
3 or 1460 NEXT_SEGMENT ©: REF BBLOCK; ! Address of next window segment 
; 476 146¢ BIND_ COMMON; | 
3: 477 146 
3; 478 1464 EXTERNAL ROUTINE | 
> 479 1465 TOSS_CACHE_DATA : L_NORM NOVALUE | 
> 480 1466 RELEASE_SERIAL_LOCK~: L_NORM NOVALUE, | 
3; (481 146 DEALLOCATE ya . ! deallocate back to prot 
; 48 1698 DEL_EXTFCB : L_NORM ' delete extension FCB's 
: 48 146 ET~DIRINDX : LTJSB_1aRG, _! test and set for directory fcb | 
; 484 1470 NUKE_HEAD_FCB =: LINORM NOVALUE; ! cleanup a primary fcb | 
: cB 147 

3; 48 1298 ! Find the FCB. Deallocate the window, and the FCB if it is not otherwise 

; 488 1474 ' accessed. Also flush data blocks of the file from the buffer pool. 
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489 ! 

490 

491 FCB = .WINDOWCWCBSL_FCB) 

49 TOSS_CACHE_DATA (.PRIM LEKINDX); 
494 PRIMAR Y {cB yo 

495 CURRENT ~WIND 

496 CLEANUP™ “FLAGSECLF Ci LoseFILE? = 0; 
498 


+ Sata SEGMENT = .WINDOW; 


BEGIN 

NEXT SEGMENT = WINDOW SEGMENT CHCBSL LINK]; 
NERNEL” _CALL (DEALLOCATE aul = W_SEGRENT); 
WINDOW-SEGMENT = .NEXT_SEG 


END 
UNTIL .WINDOW_SEGMENT EQL 0; 
If we already held the serialization lock on this file, ~ must 
have it in primary context. In that case, we will also have 


; , 

i 

fonesneres the fcb address in primary context, so let's deal with 
i 

a 

i 

1 
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there. 
teh »~STSFLGS CSTS_KEEP_LOCK) 
BEGIN 
pein LCKINDX = 0; 
Ady N; 
iantoene -REFCNT] EQL 0 
r — SET_DIRINDX (.FCB) 
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If . 
THEN 


BEC IN TECB (.FCB); 
NUKE _HEAD_FCB (.FCB); 


RELEASE SERIAL_ ace (.PRIM_LCKINDX); 
PRIM_LCRINDX = 


END; ! end of routine CLOSE_FILE 
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ts 4 2 4s 4) 9 ED 


eEXTRN TOSS CACHE _DATA 
~EXTRN DEALCOCATE, DEL_EXTFCB 


001 9000 ENTRY Lose FILE, Save R2,R3,R4 
59 06 AC D MOVL WIND 
5 18 AO D MOVL SctBAte ) Fee 
18 AA OD A PUSHL 
00006 CF 01 FB CALLS toss _CACHE_DATA 
08 AA 7C 0001 CLRO Btéase) 
03 AA 01 BA 0001 BICB2 , 3(BASE) 


<" 


10 
voe~0b0 IEReOrIQBL QB:8R:35 YMG LTWBLLSRERE YA BA Z62 run os2 


2¢ ge f 4h 19 MOVL ¥ NDOW, WINDOW SEGMENT 
4 0 Ae D 1D |S: MOVL (WINDOW SEGMENT), NEXT_SEGMENT 
DD PUSHL WINDOW SEGMENT 
00006 cf F CALLS #1, DEALLOCATE 
2 3 p : pov  gvemics WINDOW_ SEGMENT 
24 AG AA 02 € 0 BBS #2, -90(BASE), 3$ 
18 AS B TSTW alba 
7 1 BNEQ $ 
50 53 B 0 MOVL FCB, RO 
00006 O3A BSBW SET_DIRINDX 
OE 9 E 8 BLBS RO, 2$ 
DD 4 PUSHL FC 
0000G CF 4 FB 0004 CALLS #1, DEL_EXTFCB 
3 DD 0004 PUSHL F 
0000G CF 01 FB 00049 CALLS #1, NUKE_HEAD_FCB 
18 AA ODD QO04E 2$ PUSHL  24(BASE) 
0000G CF 01 FB Oped CALLS #1, RELEASE_SERIAL_LOCK 
18 AA 04 44 3 3$: CLRL 24 (BASE) 
04 0005 RET 
; Routine Size: 90 bytes, Routine Base: SCODE$S + 0187 
533 1519 1 
534 1520 1 END 
535 1521 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 481 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ecccecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 30 0 1000 00:01.9 
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Sep- VAX-11 Bliss-32 2 6 
rb-Ren-1984 00:29:55 VAN-IT BLine=S2 y4.0~742,_ | Page (I 
3 eae INITIAL ,OPTIMIZE)/LIS=LISS$:FILUTL/OBJ=OBUJS:FILUTL MSRC$:FILUTL/UPDATE=(ENHS$:FILUTL) 


“as ; 0 data bytes 
898 


3; Size: 

; Run “Time 

; classed Time: 
; Lines/CPU Min: 
3; Lexemes/CPU-Min: 6 
: qenery Used: 229 pages 
* a 


; Compilation Complete 
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